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ABSTRACT: 



Prints out and stores the summation triangular matrix 
of products ajid cross products given N records of 
n variables with aJ.1 variables equal to zero or one 
Xtyped as some "tally" symbol), as would occ\ar in the 
tabulation ajid cross tabulation of questionnaires, etc. 
The summation matrix may be put into floating point 
2^.0 format if desired. 



DISCLAIMER: 



"The authors of this program material, the POOL 
organization, and Royal McBee believe this program 
to be correct; however, they bear no responsibility, 
financial or otherwise, for errors resulting from 
its use. This program is distributed only to individual 
and installation members of POOL. Further distribution 
of this manual and accompanying tapes for use by 
non-members is prohibited." 
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POOL program Fl-139 

DESCRIPTION: 

For a series of N records each consisting of a string of n 
O's and X's, the prograra counts how many records have X's in 
both the i'th and j'th positions (for every i j). This 
produces the summation triangular matrix of products and cross 
products for the data, with the tally marks "X" assigned the 
numerical value 1. That is, if we define x. as 1 if there 

is an "X" in the i'th position in a record, and as if 
there is a "0", then the program calculates Ex.x. (i j), 

the L sign representing summation over the N records. 

In place of "X" any other character which doesn't input into 
the LGrP-JO as zero can be used for the teilly mark, since the 
program merely asks: zero or non-zero. 



The method used is a double looping system keeping track of the 
row and column of the matrix that is being prepared. A test is 
made of the values of x. and x. (either a tally or a zero). 

If X. is zero, ein entire row is skipped. If both x. and x. 

are tallies, 1 is added to the corresponding matrix element. 
Otherwise, the matrix element is left unchanged. 

The matrix is formed in fixed point at q=10. When the summations 
are completed, the matrix is converted into 2^.0 floating point 
fonaat, unless the computer is halted at a breakpoint stop. 

On the data tape each of the N strings of O's and X's will be 
preceded by a record number, which may be a serial coimt 1,2, ...,N 
or ajnything else which is convenient, except 0. This number is 
treated as an additional (first) variable by the program. Since 
the record numbers are not zero, the first row of the matrix 
provides the svimmations Zx. and even (in the upper left hand cor- 
ner) Zl = N. "^ 



The program can be used either as a complete program or as a sub- 
routine. If it is used as a complete program, and the exit 
U[0000] hasn't been set otherwise, the computer returns to the 
Lo of the program when floating is finished, unless halted at a 
bresLkpoint stop. 
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POOL program Fl-159 
Use as a subroutine ; 

The calling program must put initializing information into locations 
6232-6236;, as follows: 



6232 

6253 
623U 

6235 
6236 



10 at q=29 

n (number of variables) at q=29 

N (Number of records) at q=29 

Lo of record 

Lo of matrix. 



The "10" is "q of printout", the scaling at which the matrix is 
formed. If a scaling other than 10 is desired — for exaisBple, if 
there are 102t|- or more records — this can be changed; Lo + Olit-9 
in the program should be changed correspondingly to 1 at q of print- 
out (now 1 at q=10). 

"Lo of record" is the address of the first of a group of n+1 
consecutive locations which are available for the storage of each 
record (preceded by the record number) In turn. 

"Lo of matrix" is the address of the first of a group of (n+l)(n+2)/2 
locations which are available for the storage of the matrix. The 
arrangement of the matrix in memory will be: first, Zl = N; then 
the n Zx.'s; then the n(n+l)/2 Zx^x. 's. 

After this Information is stored by the calling program — possibly 
by a series of five Brlng-Hold Instruction pairs — the linkage 

R (Lo + 0231) 
U (Lo) 

can be used. When the subroutine has read the records, printed the 
matrix, and floated it, it will exit to the instruction following the 
U (Lo). The Initializing information will remain unchanged. 

Use as a program : 

The records tape, described below, should be preceded by the 
initializing information arranged for storage by the program input 
routine into 6252-6236, and a stop-and-transfer to the program: 

; 0006232' 

xzOOlO' 

xz(n, the number of variables)' 

xz(N, the Number of records)' 

xz(Lo of record) ' 

xz(Lo of matrix' 

,000(Lo of program)' 
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POOL program FI-I39 
Data preparation : 

There is a choice of input routines, and a corresponding variation 
in format. 

If the half-track "Input Hex Characters" subroutine supplied with 
this program is used, prepare a data tape with the records 
punched consecutively in the format 

record number 'X-, 'X_ ' . . . 'X ' 
12 n 

Here "record number" may be filled in in any desireable or convenient 
way, except as zero. The X's nre each either "0" or space or blank, 
or a tally symbol such as "X" or "1" or "/". 

Instead of "Input Hex Characters", 11.2 (Data Input Routine 5) can 
be used. In this case each record should be punched as 

0+29 (Lo of record) ' record number 'X, 'X_ ' . . . 'X ' -0000000 ' ' 

1 2 n 

Here the address, Lo of record, is the same as that which has been 
stored in 6255. The -0000000" is the standard exit code for 11.2. 
Record number and the X's are els before. 

Output arrangement : 

*• ^-^-1 ^-^r\ ••• ••• ... Z^ 

12 n 

1112 In 

^^^00 ••• ••• ••• i_K_X 



Ex X 
n n 



The program types varying nujnbers of spaces to the left of each 
line to produce the triangular arrajigement. 



Note that the diagonal Lx.x. ai-e the same as Ex., since 
x's are or 1, "''"'■ -^ 



the 
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Subroutines required ; 

1) EITHER "Input Hex Characters", (supplied with this program) 

stored Lo = O3OO, 

OR 11.2 Data Input No. 5, lo = O5OO. 

[Both have the calling sequence xrOJOS'xuOJOO' .] 

2) 12. lA. Data Output No. 2 with Zero Suppression, Tx> - O6OO, 
with the following changes: 

Lo 4- 0130 : XPO509 (print space) 

Ld + 0207: xzGOGO (print no fractional part of number). 
These locations originally contained xp2i402 and xz0007 resp. 

3) If the matrix is to be floated, 

25. OR Float and Unfloat Subroutine, Lo = 09OO. 

Storage required ; 

Program: 2 1/2 consecutive tracks 
/ EITHER "Input Hex Characters": l/2 track 
\C^ 11.2: 3 tracks 
12. lA: 3 tracks 
25. OR, if used: 5 tracks 
track 62 storage: sectors 32-56, 60-63 
record storage: n+1 sectors 
matrix storage: (n+l)(n+2)/2 sectors 

Program stops : 

lo + 003ll- bkpt ^4- between initialization and reading first record 

Lo + 0056 bkpt 8 before printout 

Lo + 0151 bkpt h before reading each record except the first 

Lo + 0212 bkpt k between printout and floating of matrix 

Id + 0230 bkpt 8 after floating matrix, before exiting 

Time ; 

The time depends on the number and position of zeroes in the records. 
A typical problem with 21 variables required about I8 seconds per 
record. The sample problem (13 records, 8 variables) takes 7 seconds 
for initialization, 1 minute hj seconds for reading the records 
and forming the matrix, 1 minute I8 seconds for printing out the 
matrix, and 17 seconds for floating it: a total time of 3 minutes 
29 seconds. 

Tape description : The tape supplied by POOL is arranged: 

Title, POOL number, date, 8 spaces, tape feed, coding of program, 
; 0006300 '.0000000', tape feed, "Input Hex Characters" subroutine 
(title, 8 spaces, tape feed, coding, ;0006300' .0000000' ), 
tape feed, sample problem data tape. 
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POOL program FI-I39 
OPERATING HTSTRUCTIOKS: 

The following is arranged for those using the program as a complete 
program. Those applying it as a suoroutine should be able to adapt 
these instructions without difficulty. 

1) Store the program anywhere that 2 1/2 tracks are available. 

2) Store "Input Hex Characters" or 11.2, Lo = O3OO. 

3) Store 12. lA., Lo = O6OO. 

k) Change machine location O73O to xp0309, 

0807 to xzOOOO. 
(These are changes to 12. lA.) 

5) If the matrix is to be floated, store 25. OR, Lo = 0900. 

6) Set switches: transfer control UP, 

breakpoint k DOW, 

breakpoint 8 UP, 
breaicpoint 32 UP. 

7) Place the data tape, beginning with the fill of initializing 
information into 6232-6236, in the typewriter tape reader. 

8) Transfer to the program input routine to read the initializing 
information and the stop-and-transf er to the program from the 
tape. Computer will stop at a breakpoint 32 in the program 
input routine. 

9) If the read- in of the records is wsuited on a separate sheet, 
adjust the paper in the typewriter. 

10) Press START. Computer will initialize constants and clear the 
matrix area. Then the records will read in, one by one. 
Breakpoint ^4- can be raised to stop the computer before reading 
in the next record, if necessary. 

11) When all the records have read in (and simultaneously the matrix 
has been completed) there will be a breakpoint 8 stop. If the 
matrix printout is wanted on a separate sheet, adjust the paper 
in the typewriter. 

12) Raise breakpoint k if floating is not desired, and press START. 
The printing will commence. 

15) (if transfer control is depressed at any time, all remaining 
printing will be skipped following conipletion of the current 
line. ) 

ik) When the matrix printing is finished there will be a breakpoint 
k stop if the s-v/itch iiras raised in Step 12. For many applica- 
tions this is the end of the program. However, if the matrix 
is to be floated in memory (that is, if each element, now in 
fixed point at q=10, is to be replaced in memory by its 2i|-.0 
floating point equivalent) press START. After floating the 
matrix the computer will stop at a breakpoint 8. Another START 
takes the program to the exit U[0000]. 
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RELATIONSHIP TO F2-129: 

If the data consists of O's and I's only, this program can he used 
in place of "Least Squares Fixed Point Triangtaar Matrix Preparation", 
the first of the seven subroutines comprising POOL program F2-129. 
The allocation of space for the subroutines and for the track 62 
information is the same. There will be a considerable saving of time, 
especially vhen there are many O's in the data, and when "Iiput Hex 
Characters" is used. 



There are, however, two points to be noted. 



1) FI-I39 is twelve sectors longer than subroutine 1 in F2-129» 
If the suggested storage scheme of F2-129 is retained, giving this 
program Lo = 5OOO, it overlaps the beginning of subroutine 2, 
"Triangular Matrix Scaling". This is not as serious as it may seem, 
since subroutine 2 would never be used with "tally" data since all 
the variables are already normalized. (Subroutine 2 is not used in 
the sauiple problem of F2-129 either. ) 

2) Subroutine 7 of F2-129, calculating the last variable according 
to the regression plane, requires the input to be of true O's and I's 
(not an arbitrary "tally" symbol such as "x"), and needs the number 
1 where we have put the record nvimber. It also uses 12, lA. in its 
standard form, not modified to "cram" the line as in Fl-159. But it 
is Tinlikely that Subroutine 7 will often be used when the data consists 
of tallies, so these difficulties will not in fact arise. 
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POOL program Fl-159 

ASSOCIATED SUBROUTIEE: 

Input Hex Characters and store at q=29 

Purpose: To input zeros or hex characters (i.e. X's, etc.), 
shift to q.=29, and store, n+1 values starting at 
the Lo specified in 6235 (lo of record) are stored 
in sequence. 

Coding information: 

1) The following information must be supplied: 

6255: n at q=29 
6235: Lo of record 

2) Linkage: R (Lo + OOO8) 

U (Lo) 

3 ) Storage : 

subroutine: 32 consecutive sectors 
records: n+1 sectors 
track 62: sectors 33 aj^d 55 

The coding is reproduced in this manual following that of the 
triangular matrix preparation subroutine itself. 



SAMPLE PROBLEM: 

The data for the sample problem is punched for the program starting 
in 3000, and using "Input Hex Characters". Note that the changes 
required in 12. lA are punched on the data tape for convenience. 

On the next page is reproduced the computer run of the problem, from 
the read- in of the data tape through the printout of the matrix. 
The floating of the matrix was included in this computer run, but 
since floating produces no output this can't be seen from the print- 
out. 

As was stated before, on one particular coraputer-flexowriter combina- 
tion the run took a total of 3 minutes 29 seconds, from the transfer 
to 3000 through the floating of the matrix. 
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; 0005000 70005000' 
; 0000500 70000500' 
; 0000600 '/0000600' 

; 0000900 '/0000900' 



POOL program Fl-159 
store program 
store IltPUT HEX CHARACTERS 
store 12. lA 
store 25. OR 



T 



by hand 



DATA TAPE FOR SAMPLE PROBLEI^I FOR FI-I59 

; 0000750 '35)0509' modifications in 12,1A 
; 0000807 'xzOOOO' 

; 0006252' 

xzOOlO' q of printout 
XZOOO8' no. of variables 
X20015' no. of records 
xz6200' Lo of record 
xz4000' Lo of matrix 



.0005000' 



Rl '0 
R2 'x 
R5 '0 
Ri+ '0 
R5 'x 
r6 '0 
R7 'x 
R8 '0 
R9 '0 
RlO'x 
Rll'x 
R12'x 
R15'0 

15. 



'O'x'O 
'x'0'0 
•x'O'O 
•O'O'O 
•x'x'O 
'x'0'0 
•x'O'O 
•O'x'O 
'O'x'O 
'O^x'O 
•x'x'O 
'O'O'O 
'x'0'0 



'x'x'x'O^ 
•x'x'0'0^ 
•O'x^x^x' 
'O'O'O'O' 
•O'x'x'x' 
'x'x'x'O' 
•O^O'x^O' 
'O'O'O'O' 
•O'O'O'O' 
'x'O'x'x' 
•O'O^O'O' 
'O'O'O'O' 
'x'x'x'x' 



data tape 



6. 


7. 


6. 


5. 


6. 


7. 


k. 


i 


I 


6. 


k. 


3. 


2. 


2. 


5. 


2. 








7. 


2. 


5. 


5. 


5. 


5. 










6. 


2. 


2. 


5. 


2. 












» • 


• 


m 




output 








5. 


6. 


k. 
7. 


2. 


\ 


f 
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o u S 


__1 J__ 1- 1 1 1 u 

1 1 1 1 1 1 1 




1 .1 |9 


1 

1 1 1 1 1 1 1^_ 




X 




U 2 Z 


L ..L _L_ .[ 1 1 1 




1 |2 |0 


L 1 1 1 1 1 1 1 . 






PROC 
HEST 


__j — i — 1 — 1 — i_j — 1 — 
1 1 1 1 1 1 1 




1 |2 il 


, , y^o./.o,7 








^ f 
^ a 


_j — 1 — 1 — j_ — 1 — 1 — 1 — 
1 1 1 1 1 1 1 




1 |2 ,2 


, , i/|^,/,^,r 


1 







"75 ° 


1 
1 1 1 1 1 1 1 




1 i2 |3 


, , ^|<5',/,^^ 




^ 


/ea.f 


Pi 


U 1 J_.„_^ _l 1 1 

1 1 1 1 1 1 1 




1 |2 |4 


, , .A^0./.0,3 




^/■^^7 






„_L 1 1 1 1 1 1 

1 1 1 1 1 1 1 




1 |2 |5 


, , ,/|^,/,^,^ 






- -^- 




1 1 1 1 1 1 1 
1 1 1 1 1 1 1 




1 |2 ,6 


, 1 ,^^,/,/,^ 




x^^56-3 




1 1 1 1 1 1 1 




1 |2 |7 


, , ,s,c:?,/,/,J 




E 


l^H ^^ 






1 1 1 1 1 1 1 




1 l2 |8 


1 , ,r|^,/,^,3 








• 


^ --■ h 

1 1 1 1 1 1 1 


— -- 


L_j2_^9_ 


, , ,3.o,/,a.o 


— 




■ 




1 |3 |0 


, , ,//|^/;^f 




1 1 1 1 1 1 1 




1 |3 1 1 


, , ,X,^,/,i?,3 


X 








FORM I.P-IO 






'3 


/ 


X 


CARRIAGE RET 
CONDITIONAL 6 


JRN 
TOP CODE 







PREPARED FOR: 

LC,P-36 , RPC~400a USEJ^S Ofi.Cfih^l2ATION - PO6I. 


PAGr or 




JOB NO. 


PROGRAM NO, 


PROGRAM PREPARED BY: PROGRAM CHECKED BY; 


DATE 

?/:>a/jfr 




PROBLEM: 


TRACK 




PROGRAM INPUT COOES 


tL 



h 


LOCATION 


INSTRUCTION 


0. 



^- 


CONTENTS 
OF ADDRESS 


NOTES 




OPERATION ADDRESS 




1 
1 1 1 1 1 1 1 


A 


















/ 


X 










OJ ,3 ,2 


, 1 ^V\0../.0,0 


/ 












1 |3 l3 


. 1 L^7^i/.L/l_^_ 


f 


^b6:>6:^ 






1 1 1 1 1 1 1 


--■ 










^^H 7^^ 








X 












1 |3 |6 


.^.A^^A^^^^AYia/l^X^..^ 
^^A^^A^ L^}_^1 /l^l/ 


1 

1 
1 
1 




/o ;?^^ 










j^y^iJ- 












1 |3 ,8 












1 i3 |9 


X 








^ \0sO\0\0\O\ OxJ 


/ 


1 1 |4 |0 




/&3 








1 |4 |1 


1 


/o MfCf^^'X 










1 l< |2 


1 1 iX|^i/,^,r 


1 












, |1 |3 


1 
1 


X 












1 |4 |4 


, . iri^i/i-^;/ 


/&af 










1 |4 |5 


1 
1 

1 
1 
1 
1 
1 
1 
1 


C^uif^en ^-i- 










, ,4 |6 


II 










1 |4 |7 


X 








1 1 1 1 1 1 1 




1 i4 |8 








C<v^*'*'<»?« ^2/>te>l*T 




^.0^0^0\0^0,0^l 


/ 


1 |4 ,9 


a/eSiZv a^uaC 


/&/0 /I: /<S> «, a/'yA.^An^/) 









1 i5 |0 




vAftf/tru/' 


> 

S 

u 






1 ^5 Jj__ 
1 |5 |2 


X 


SP^^^_^ 


^/?.^a^k^^jeo'?4 yi^c^yi^ 






y 




t- 
I 






1 |5 1 3 


t 


Al^iT^^^ll 




o 

1- 






1 |5 |4 




1 


. ,^f^.7 




£ 






1 |5 1 5 


1 

1 


XT 


^f-ti yiecM^ 










1 |5 1 6 


x_i xZ^u^„j7^ 








1 1 1 1 1 1 1 




.1 |5 ,9 


_ ,_ C>^,L/.^0_i3,0.p 

, , ^UaP,'a)0 


1 
1 
1 
1 
1 
1 

I 


- — 






1 
1 1 1 1 1 1 


1 


— 


/eaf 




1 


X 






1 1 1 1 1 1 1 


~ 


L .16 1.L 

1 |6 1 3 






V-^^r^ 


y^jzr 




1 1 1 1 1 1 


1 


— "-- 






I I 1 I I 1 


{ A7/7/y»^ 




1 1 1 1 1 1 


X. 






FORM LP-12 










u 


1 


X 


CARRIAGE RETL 
CONDITIONAL S 


RN 
rOP CODE 


«vr.u M H,, J, J54I K 



rAKf i) t <:>(■( 



LCP-36 , RPC- ^^^O USE/es O/^CflNl2i^7i0t^ - P^ot^ 



^f^'rogram no. 



[program prepared by. 



/ ^/-'/3f \^^ fZ ^ 1^/=^^ \ ^^iPJ- ^e^^y^ ur- 



program C(-lCCKED BY: 






Bl (. M; 

*-^ "I II- r \ INSTRUCTION i ^nrs/TrMVS 



Pf^OGHAM INF^UT CODE:S 



. 1 i- 



A _L 



O O 

C > >- 

2 Z 



J .. 1 1,., 

I . I J. 

I .i I .. 

.J 1 .-,. I . 

„.l ,_, L . -L_... 

_ U. 1 , 1 „ 
. I 1 1-- 



_[ i. 

I , i. 



..L_.l. 



4-J--^^ 



.J 1. 



A L. 



A L. 






_.l L 



A i. 



_...L_ .1 . L 



J i. 



,^.1, __.1.„..J. 
._J..^J L 

L„1..„I L 

_J J 1_ 



|._^1 L. 



.J J_ 



-f-^- 



A L. 



U ? 



I/) CC 






o 



,.L.,_.L i 

_i L..„X._._ 



-L U 



A L 



J L 



J J J_ 



.J I.. 



-L. 



A L 



_L.,_.J.. „l-,.__|.._l J-. 

A J 1 I 1 l_ 



_J J I L— .J 1- 



_1__ J... 



4- 



-.1 L 



J l„„,.L 



l._..X„_L 



_1. J 1 |___. 1. .._L. 

J..__-i___.L__.j A J_ 



.J L 



J L 



LOCATION 



OPERATION 



ADDRESS 



^^0 



..iLal 



_"_! 



J \J- 



.^a.a.^^,'^\Oa/\/aT 

^U^A.^AA\0\LlLvt 

_a^a^0^0Aa7_ 

..^A^^A.^xC^^\0.dAL,7__ 



>l< 



^.J L__J I I ... I--I.- 



_l1 
a1. 

6 



1 L 






..X_J 



LXw5|<^L.2L^^_L(^_ 






li.^Ods^_,r 



j)(^U4dA0AQ_ 



lXi^iL 



J L L 



„L lC.|Li.„.±. 



CONTCNVI 

OF addre:ss 



' ^/«/*rj/ s/^aces 



' -/ei-/ ?^ a^a;Me^ .-urry. 






^Yy S /^' 



3 



/ej2f 



3.P^^^^^^6y 






\Sjp_\_^xLit^ 



j__i^ 



Aa^I-vJa^- 



A__^y^o,_^ii_j\i 

A lY..}^0. \^A^Ar- 



i^a^a'^AaL 



^A^_A^^.Ar^^A^LlAt_ 



FORM L.P-(0 



'5 



1/ 



■rr^ t^i 



'c; 



—<//^-y> 



^Zl Irl 



/^^f 



JZ 



^(PjJ'f S-J^S/XJce-. 



..r / 






H 



carriage RETURN 



CONDITIONAL STOP CODE 






; PROGRAM NO. 



PROGRAM f-REPARLO BY 



iA/ir» 



^/?f^Z //f-:: >i.^CS .^^ 9:^ A 



(a^c^ si^^_^ J- - -^V 



I'KOORAM INPUT CODES 






C 

C > >■ 
c „ S 



'*"' a. 



X I- 



'-' ' I 

J_ 1 _ J _ 1. 



± L_ 



J L.._i.._ 

|._.J. I J 

),_, 1,_..J L_ 



A .1. _ 1 1 _.L„._J- 1.. 

J . L L__.|__.J 1 i.. 

... l„. I I __.-[„- J J L 

I L^-.J |.._,l I L- 

_..!_._ a L. .-|„... I I 1-. 



+ 



u_. 



.1. ..„!._ 
L J-. 

'--^ ' 1 

_.l i 1 1 



_L 



J l_ 



^J 1 1-. 



± l_ 



J I -L 



X J_ 



_j J I- 



J 1 L 



± L 



J L 



-J L L_ 

-J 1 L 



J L 



J J L 



.,l.,-_L_a I J I L 



J. L. 



.L, 



J L 



.1 l_ 



J L l_ 



J I J- 



_J l,„,_...i. 



J I L 



.I.._-l L 



J. I i_ 



U- J - - -L-_L- _^-| —I 1 1- 

A I 1-„_| _._L^-L. ,._L. 



J L 



J L 



LOCATION 



A. 



J. _ 

0300 



/ 



INSTRUCTION 



OPERATION 



ADDRESS 



)(a£^J^x^^^ 



>r 



aI^aOlLL 






aI/MiOj^aL 



CaP^OaS-aO 



...AU^OiOAOA? 



3 

^iV\^vOa^a£ 



.S\PaPv1aI 

±A.PAO,a.^r\[ 

,«5,^,<5i5,/ 



CONT EN I S 
OF ADDRESS 



l.o_ '^^jT?!?':'^ 



'yi e^9 






atutt 



'/^. 



/e:2<f 



ATi^OlOAOsif 

_l I I I I 



J U_L 



J 



A L^_l- 

.J \ L 



-^~4- 



A I L. 



_L_„| L 1 1__, 



X. ^ i ^i^i^i/ 






J I L 



y^\^63G3 



/'b:2j 



l^^, Atc^e ^ 



/c 



'crrrf^ 



^r -e ^/j^ 



1/ , // 






C4<S. 



u 



Cltl> 



^/r^ "/Z" /.e^e 



S-f»^& i-j^yioC 



M 



FORM L.P-10 



j:?(<^t 



►^ 



/&2-f _^ 



CARRIAGE RETURN 
CONDITIONAL S10P CODE 



